Inform 7.0 cookbook by TempodiBasic

SUB __UI_KeyPress (id AS LONG)
SELECT CASE id
CASE Texbox1TB
IF __UI_KeyHit = 13 THEN
SetFocus TextBox2TB 'or whatever your control name is
END IF

TAB is the default key to change focus in an application another key is not intuitive

SUB __UI_Click (id AS LONG)
STATIC DoingIt AS _BYTE 'Flag to indicate a LOOP is being run

SELECT CASE id
CASE IntenseCalculator

CASE QuitBT
SYSTEM
CASE StartBT
IF NOT DoingIt THEN
PrevCaption$ = Caption(StartBT)
Caption(StartBT) = "Cancel"
Caption(PB) = "Locating stars in observable universe... \#"
DoingIt = True
Control(PB).Hidden = False
Control(PB).Value = 0
BeginDraw PictureBox1
CLS
EndDraw PictureBox1
StartTime! = TIMER
DO
Control(PB).Value = Control(PB).Value + 1

BeginDraw PictureBox1
PSET (RND * _WIDTH, RND * _HEIGHT), _RGB32(RND * 255, RND * 255, RND * 255)
EndDraw PictureBox1

__UI_DoEvents 'This is what you'll want to have in your main loop

_LIMIT 30 'simulate a loop that takes a good while...
LOOP UNTIL DoingIt = False OR Control(PB).Value >= Control(PB).Max
Control(PB).Hidden = True
Control(StartBT).Disabled = False
Caption(StartBT) = PrevCaption$
BeginDraw PictureBox1
IF DoingIt = False THEN PRINT "Canceled."
DoingIt = False
PRINT "Seconds since start:"
PRINT TIMER - StartTime!
EndDraw PictureBox1
ELSE
DoingIt = False
END IF
CASE PictureBox1

CASE PB

END SELECT
END SUB

in __UI_BeforeUpdateDisplay you must set __UI_Focus = controlXXX

2. you assign each index in that array to the desired control as created with the editor.

an example for multiple labels:

in MyProgram.FRM file in SUB __UI_LoadForm

DIM IDname AS STRING

...

for i = 1 to 12 step 1

IDname = "Label"

IDname = IDname+Ltrim$(Str$(i))

    __UI_NewID = __UI_NewControl(__UI_Type_Label, IDname, 150, 23, 10, 10, 0)

    if __UI_NewID = 0 then end else SetCaption __UI_NewID, IDname

    Control(__UI_NewID).VAlign = __UI_Middle

next i

and in SUB __UI_AssignIDs

...

    for i = 1 to 12 step 1

    Label1(i) = __UI_GetID("Label"+Ltrim$(Str$(i)))

    next i

and at the end in MyProgram.BAS

.....

DIM SHARED Label1(1 TO 12) AS LONG

Be careful to use these events with form because they works only while mouse is in the area of the screen that the window of application occupies

the control that has the Focus reacts to Enter key ( __UI_KeyHit = 13) and Space Key ( __UI_KeyHit = 32)

If you create a Control with a caption-hotkey (by adding an ampersand character before the &Desired letter) you can also activate it with Alt+Letter at run time

1. set standard font used for SCREEN 0  

   1.1 typing at Design Time  ; Dimension  in cell of Font of Control

   1.2 at RunTime Control(ID).Font = SetFont("",16)

2. add the special ASCII code in Caption/Text of Control by SetCaption IDControl, CHR$(ASCIICode)

Use a symbol font like Webding or Wingdings if yo uare able to use UNICODE font with InForm

Any image size for Buttons

16X16 image size for MenuItems

Events:
__UI_MouseUp: is true if mouse is on the control_ID and releases a Mouse_button
__UI_MouseDown : is true if mouse on the control_ID and presses a Mouse_button
__UI_MouseEnter: is true if mouse is on the control_ID
__UI_MouseLeave: is true if mouse is out of the control_ID

Variables:

__UI_MouseLeft : is like _MouseX statement

__UI_MouseTop: is like _MouseY statement

__UI_MouseButton1: is like _Mousebutton(1)

__UI_MouseButton2: is like _Mousebutton(2)

__UI_MouseWheel: is like _MouseWheel -1 for roll down, 1 for roll up

Control(__UI_FormID).Width = (whatever width suits you)
Control(__UI_FormID).Height = (whatever height suits you)

Control(__UI_FormID).CanResize = True lets users to resize manually

Use Z-Order window to order Frames and put at first level also the second frame

Add a new evend handler

method SetFont has lost its last parameter in MYAPP.frm file SetFont must use only first two parameters

Workaround:
you can use multiple set of controls that you can hide/disable and then activate as you need changing the aspect of the form

SOLVED in Beta 8

Manual ruled by coder in TextChanged event

Manual ruled by coder in TextChanged event

Manual ruled by coder in TextChanged event